home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 12 / Mac Magazin and MacEasy Magazine CD - Issue 12.iso / CD Extras / Plug-ins / QuarkXPress / XChange International demos / INposition / INpos Demo 1.5.1 (3.3) Folder / INposition® 1.5.1 / INpositionÆ 1.5.1.rsrc / EPSF_27000 < prev    next >
Text File  |  1995-01-25  |  2KB  |  52 lines
  1. /cpy 0 def
  2. /cpx 0 def
  3. /tmpy 0 def
  4. /tmpx 0 def
  5. /tmpstr () def
  6. /thecolor 4 array def
  7. /tmpcolor 4 array def
  8. /tmprect 0 array def
  9. /ok true def
  10. /inverttextrect { % width height descent () --> draws white text on black rect
  11.     gsave /tmpstr exch def currentpoint /cpy exch def /cpx exch def
  12.     0 exch neg rmoveto /tmpy exch def /tmpx exch def 
  13.     tmpx 0 rlineto 0 tmpy rlineto tmpx neg 0 rlineto closepath
  14.     1 1 1 1 setcmykcolor fill 0 0 0 0 setcmykcolor
  15.     cpx cpy moveto tmpstr show grestore} bind def
  16. /beps { % - --> sets up for included eps
  17.     save 70 dict begin /showpage {} def /copypage {} def 
  18.     0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 
  19.     10 setmiterlimit [] 0 setdash newpath 
  20.     /langlevel where {pop languagelevel 1 ne {false
  21.     setstrokeadjust false setoverprint}if}if} bind def
  22. /eeps {end restore} bind def % - --> cleans up after included eps
  23. /nullsetgray {pop 1 setgray} bind def % g value --> sets gray to be white
  24. /processsetgray { % g value --> sets the gray if printing the black
  25.     thecolor 3 get 1 eq{setgray}{pop 1 setgray}ifelse}bind def
  26. /spotsetcmykcolor { % c m y k values --> sets appropriate gray color
  27.     0 1 3{tmpcolor exch 3 -1 roll put}for /ok true def
  28.     0 1 3{dup thecolor exch get 0 eq{pop}{exit}ifelse}for
  29.     dup tmpcolor exch get exch thecolor exch get div /x exch def
  30.     x 0 eq x 1 gt or{/ok false def}if
  31.     ok{0 1 3{dup tmpcolor exch get exch thecolor exch get x mul sub abs .005 lt
  32.         {}{/ok false def exit}ifelse}for}if
  33.     ok{1 x sub setgray}{1 setgray}ifelse
  34. }bind def
  35. /processsetcmykcolor { % c m y k values --> sets appropriate gray color
  36.     3 -1 0{thecolor exch get 0 ne{exit}{pop}ifelse}for 1 exch sub setgray
  37.     3 -1 0{dup thecolor exch get 0 ne{{pop}repeat exit}{pop}ifelse}for}bind def
  38. /loadrect { % llx lly urx ury [- - - -] --> -
  39.     /tmprect exch def 3 -1 0{tmprect exch 3 -1 roll put}for}bind def
  40. /bmirrorpict { % width --> undoes mirroring
  41.     gsave
  42.     0 translate
  43.     -1 1 scale}bind def
  44. /bmirrorstr { % () --> undoes mirrored text
  45.     gsave
  46.     dup stringwidth pop
  47.     0 rmoveto -1 1 scale}bind def
  48. /emirrorpict { % - --> resets the mirrored state
  49.     grestore}bind def
  50. /emirrorstr { % - --> resets the mirrored state
  51.     grestore}bind def
  52.